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MODULE CSPMOUNT 


SRE BLEEP 


§ ras a taee tees wae tas, ag oT TALE 
te * 

t# COPYRIGHT (c) 1978, 1980, 1982, 1984 ® 

He thee FORE ENVE CORPORATION, MAYNARD. MASSACHUSETTS. * 

i: ALL RIGHTS R : 

1 ie THIS IN ACEO I$ a UNDER ICENSE AND MAY BE pre AND COPIED * 

1 tt ONLY IN ACC THEN A TERR OF SUCH LICENSE AND WITH THE * 

14 '# INCLUSION ove COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

15 '* COPIES THEREOF ar NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

1 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

4 os TRANSFERRED. ® 
' * 

+t ie He 8 rte IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0 i CORPORATION. ® 
; * 

; !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

* 

* 


0 

1 

; 
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Oe 3 o¢ 
031 i FACILITY: MOUNT, CSP 
: i ABSTRACT: 
¢ This module contains the cluster server action routine for 

$ MOUNT and is part of the Cluster Server Process (CSP). 
38 ! Environment: 

? Full process context capable of kernel mode. 

§ ! Author: 

4 


Hai Huang 


= = 


ee 


NOUS LTO OONOM 


i Creation date: 
28 Feb 1984 


oS 


i Revision history: 


v03-003 wi00 2 Hai H uang 17-May-1984 
Dismiss the mount lemmas if the device is not 
cluster-wide, or if the device is already mounted. 


v03-002 HHO007 Hai Huang 16-Mar-1984 


222922225 
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1$oS0c1984 1454 YaNTD a fagz3 


Add cluster-wide group-volume support. 
i V03-001 HHO004 Hai Huang 01-Mar-1984 
Add rn, mount support. 
-™ 
BEGIN ! Start of CSPMOUNT 
LIBRARY ‘SYS FL 1O8ART | os L32° ; 
REQUIRE ‘LIBS:CSPDEF' 
LINKAGE 
JSB_2 = JSB (REGISTER=2) ; 
FORWARD ROUTINE 
CSPSMOUNT : J$B_2, 
CSP_MOUNT_DECIPHER : NOVALUE, 
CSP_DISMOONT_DECIPHER : NOVALUE, 
GET_UIC, 
SET UIC 
CHECK_DEVICE; 


moun 7833.1 
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ZSBTTL ‘CSPSMOUNT = MOUNT client support f sP' 
GLOBAL ROUTINE CSPSMOUNT ead wr 
(CSD : REF BLOCK C,BYTEJ) : JSB_2 = 


< 


14 

a 

FUNCTIONAL DESCRIPTION: 

i This routine performs the CSP mount gi tone action routine. 
! The possible actions are mount and dismount, depending on 
the parameter specified in the CSO packet. 

| INPUTS: 

CSD : Pointer to the address of the received CSD 
OUTPUTS: 
! None. 
IMPLICIT INPUTS: 
None. 

OUTPUT PARAMETERS: 
None. 

| IMPLICIT OUTPUTS: 

Mount or dismount system service issued. 
ROUTINE VALUE: 

i 

i) 
‘ 
i] 
i 
‘ 
‘ 
1 


1 : If successful 
Otherwise : Error status from mount/dismount system service 


i SIDE EFFECTS: 
None. 


BEGIN !' Start of CSPSMOUNT 
S$ 
R : REF BLOCK; 


BUFFER = .CSD CCSDSL_SENDOFF); ! Get address of message 
if gue = .CSD CCSD$L_P1]) NEQ 0) ! A non-zero Pl is a mount request 
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CSPMOUNT 16-Sep-1984 01:14:34 AX-11 Bliss-32 V4.0-74 Pp 4 CSPM 
vate CSPSMOUNT = MOUNT client support for CSP 137808-1 382 9418583 SYSLOA SREICEPMOUNY 203551 — (2) VO4- 
BEGIN 
LOCAL 
ARG : VECTOR (2), 
OLD_UIC; 


CSP_MOUNT_DECIPHER (.BUFFER); 


STATUS = CHECK_DEVICE (.BUFFER); 
e ad » STATUS 


RETURN SS$_NORMAL ; 
OLD = SCAKRNL (ROUTIN = GET_UIC); 
ARG = 1; 


Decipher cluster-mount packet 
into a mount item List 

See if the mount should be processed 
If not, dismiss request 


: 6 
: § 
; 6 
; § 
: § 
; 6 
: § 
3: 6 
: 6 
; 6 
3; § 
: 6 


Get original VIC 
Set up arglst 
Set new UIC 


ARG (iJ = UIC; 
Ate (ROUTIN = rer UIC, ARGLST = ARG); 


WN OC OONOUNE WS OOONOULE Win 
DPDARDEED AAA SB BB EB EE PAA 
NRO OONAUE WIN 9 ODNOUE WO OONOV EWN OOONOUSW 


Be Ge Se Ge Se Ge Ge Se Fe Se Se Se Ge Se Se oe SH Se SF Se Ss Se Se Se Se Ge Se Seesess Sete ee Ge Ge te te tee 
a a a dd dd 
SSNS FSF FSS SS BLIP LAINIE S&S SS SES 


TUS = SMOUNT (ITMLST = .BUFFER); Mount 
ARG C1) = .OLD_UIC; Restore original UIC 
0 SCMKRNL (ROUTIN = SET_UIC, ARGLST = ARG); | ... 
0 END 

: 03 ELSE ! P1=0 is a dismount request 

6 BEGIN 

: 9 

8 0 LOCAL 

:] 0 DEV_DSC 

9 9 DISA_FLAGS; 

§ 036 CSP_DISMOUNT_DECIPHER ( .BUFFER, DEV_DSC, DISM_FLAGS ); ! Decipher the cluster- 

36 ! dismount packet 

: 36 STATUS = SDISMOU ( DEVNAM=.DEV_DSC, FLAGS=.DISM_FLAGS ); ! Dismount 

6 6 END; 

feel: 

.] 0 7 RETURN .STATUS; 

0 372 1 END; 
-TITLE CSPMOUNT 
-IDENT \V04-000\ 
eEXTRN SYSSCMKRNL, SYSSMOUNT 
-EXTRN SYSSDISMOU 


~PSECT SCODES,NOWRT,2 
3C BB 00000 CSPSMOUNT:: 


PUSHR #*M<R2,R3,R4,.R5> : 0278 

5 10 ¢ SUBL2 #16, SP : 
33 1g A2 D MOVL (€SD), BUFFER ; 0329 
5 A2 p mov (€5D); UIC ; 0331 
af Dd 0000F PUSHL BUFFER > 0340 


capmaun 1f§e0-198 


CSPSMOUNT = MOUNT client support for CSP 


0000v CF ; 4 16 
0000v E 4 } 
: yl | 
i. 
E Be 18: 
0000vV CF OF A 
000000006 99 63 3 ; 
ee 
AE 9F 4 
ooh HH Bue 
000000006 00 9¢ 4 D ? 
000000006 90 9 09 0 3p 
OC. AE 54 3 005A 
08 AE OF 83 E 
0000v CF 9F 00061 
000000006 00 $e fo 0065 
5E 0D 008 2s: 
oH Be 
0000v CF 03 FB 0007 
6E DD OO07A 
08 AE 0D o 7¢ 
000000006 3 08 0086 
een 
05 00091 


; Routine Size: 146 bytes, Routine Base: S$CODE$ + 0000 


; «(181 0373 1 


a i 


8:03 


AX-11 Bliss-32 V4.0-74 
SYSLOA.SRCJCSPMOUNT B32; 1 


#1, CSP_MOUNT_DECIPHER 
#1, CHECK_DEVICE 
TAT 
STATUS, § 
wi, R 


BUFFER 
#3, CSP_DISMOUNT_DECIPHER 
D1 Sm FLAGS 


We. SYS$D1SMOU 
RO, STATUS 
STATUS 

#16, S 
#°M<R2,R3,R4,R5> 
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CSPSMOUNT = MOUNT client support for CSP 


The cluster-mount packet in the buffer is transformed into 
a mount item List. 
NOTES: 


This decipher routine takes the given {iveter-geunt packet of the form 
shown below and transforms the packet 


Offset 


BS oy ot ot et et 


oc 
Garonorororununurunun— = OO 


nto an item List. 
iqnuemeueenunaum 

' {| 0 ITEM_LENG item_desc_1 
toffset to str_1i 4 ITEM_ADDR 
: i 8 


LES 
SSO NONE UI OODONA ME WOOO NOE 


unused 


ey P ¢ 1 

3% 1 XSBITL_ ‘CSP_MOUNT_DECIPHER “Deciphers a packet into MOUNT itemlist' 
: 185 1 ROUTINE CSPCMOUNTIDECIPHER ( BUFFER Pr NOVALUE = - 
eh 1 {4 

s 8 79 «1! 

: 1 } FUNCTIONAL DESCRIPTION: 

13) § ! =~ rout ine Venes a cluster-mount packet and returns 
; #19 4 1! 

: 13e 5 ! CALLING SEQUENCE: 

i 196 ; | CSP_MOUNT_DECIPHER (ARG1) 
: 198 ; INPUTS: 

; 90 31 " ARG1 : Address of the input buffer 
: 06 38 1 | OUTPUTS: 

3; 2 94 1! 

: 204 95 1! None. 

3 05 9% 1! 

3 Be 9 1 ! IMPLICIT INPUTS: 

s 20 98 1! 

3 08 99 1! None. 

; 209 400 1! 

3 10 401 1 =! OUTPUT PARAMETERS: 

3 11 402 1! 

: \¢ 405 1! None. 

; 1 404 1! 

3 14 4 1 ! IMPLICIT OUTPUTS: 

$ 15 4 ..s 

3 1¢ .s None. 

3 1 1! 

i gig | | ROUTINE VALUES: 

; 0 1/ None. 

3 1 - 

; 3 : SIDE EFFECTS: 

> 206 1! 

3 5 1! 

. 1 1 

; 7 1! 

3 8 1! 

3 9 1! 

: 0 1! 

+ 231 1! 

: 1! 

; 5 1! 

3 1! 

3 5 1! 

; . | 

; 2% 

3 1! 

3 1! 


ITEM_NULL 


5 

C NT 1b-se 1984 01:14:34 AX-11 Bliss-32 V4.0-74 P 7 

yoe-000 CSP_MOUNT_DECIPHER -Deciphers a packet into MOU 1 ~$007 138% 94:18:83 SYSLOA.SRCICSPMOUNT .83 31 o~ (3) 

: 240 4 1! $eewnwwownoeeonne + : 
; 43 r ! | code2 | len2 ! 0 ITEM_LENG item_desc_2 : 
43 434 loffset to str_2} 4 ITEM_ADDR ; 
: 245 436 | { unused { 8 ITEM_NULL 3 
8 <3 4 1 ' Sa ee meee ee eet PY 
: 24 4 1! ‘ : : 
3 rt 4 i " : 
; 24 440 1! . . : 
3 , ret ! ¢oememocan 0 eeceeece + E 4 f it 4 ; , P| 
; z H H em : 
3 ¢ re ss feeeececeeececce + = 9 aay eeers ; 
; 444 1! i str_1 ' ; 
; : ree ! + seeeeseeseuesce + ; 
: 386 ee i SS | 
; ra } } \ str2 \ ; 
: 23 £02 ! } + eeescesesoecece + : 
: 360 451 173 ) 5s. So + : 
; 261 +26 1! 3 
; 66 453 1! F 
3; 2 454 1! 1. Each address in the item descriptor is ‘'relocated’’ to be the : 
; 264 455 1! offset from the beginning of the packet (i.e. self-relative). ; 
; 265 $28 1! The transformation is simply to calculate the address in each 3 
3 98 457 1! item descriptor. 3 
; 26 $28 1! 3 
; 268 459 1 !- 3 
: $° 460 1 3 
; 0 461 1 F 
3 eri 106 BEGIN ! Start of CSP_MOUNT_DECIPHER 3 
3 8 46 : 
3 er 464 MAP 3 
: ie rhe BUFFER : REF BLOCK C,BYTE); ; 
: 276 46 LOCAL ; 
3 a ig ITEM : REF BLOCK C,BYTE); ! Pointer to item descriptor : 
: 279 0 ; 
; 280 71 MACRO ITEM_LENG = 0,0,16,02; ! Define buffer offsets 3 
: 281 i MACRO ITEM_CODE = 2,0,16,0%; 3 
: 4 7 MACRO ITEM_ADDR = ° 3 O28; : 
; 74 MACRO ITEM-NULL_ = : 232,08; 3 
; 9B 23 ¢ LITERAL ITEM_SIZE = 12; ; 
; SS ; 
3 4 : For each item descriptor, calculate the real address of the item. : 
: : ITEM = BUFFER; ! Point to the beginning of buffer ; 
; } § site ( ITEM CiTem_cope) NEQ 0 ) DO : 
; 38 4 ITEM CITEM_ADDR) = .ITEM CITEM_ADDR] + .BUFFER; ! Calculate the real address ; 
; 294 5 ! of the item strin 3 
3 3 § ae ITEM = . ITEM + ITEM_SIZE; ! Bump item desciptor pointer : 


5 
=$ep-1984 01:14: AX-11 Bliss-32 Vv4.0-7 Pa 8 
CSP_MOUNT_DECIPHER -Deciphers a packet into MOU 1b-Se0-1984 94313338 SYSLOA. SRC CePMMUNTb35;1 9 03) 
8 4 
i fe ‘fala 
: 300 4 END; ! End of CSP_MOUNT_DECIPHER 
0000 00000 CSP_MOUNT DECIPHER gia at 
® Vv P 
50 04 AC D MOVL UFFER ITeA ; beat 
2 A 8 1$: TSTW ITEMS + 04 
OA BEQL 8 ; 
04 A0 046 ac C ADDL BUFFER 4(1TEM) + 04 
5 0¢ f 1 ADDLe #i2, ITEM + 04 
F 1 0 1 BRB 1$ : 04 
04 00015 2$: RET 3 0491 


; Routine Size: 22 bytes, Routine Base: S$CODE$ + 0092 


$0) 0492 1 


02 04935 1 
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OUTPUT PARAMETERS: 
ARG2 : Address of a longword to recieve the address 
of the device descriptor 
ARG3 : Address of a longword to receive the flags 
IMPLICIT OUTPUTS: 
None. 
ROUTINE VALUES: 
None. 
SIDE EFFECTS: 
None. 


5 i SBTTL "ERD -B I SROUNT DECI CHER =-Deciphers a packet into DISMOU arguments’ 
$ OUTINE CSP_DISMOUNT_DECIPHER ( BUFFER, DEV_DSC, FLAGS ) : NOVALUE = 
+ 

! FUNCTIONAL DESCRIPTION: 
18 a device descriptor ond the dismount tlegses ne erurn 

14 4 i 
1? 5 CALLING SEQUENCE: 
Hi CSP_DISMOUNT_DECIPHER (ARG1, ARG2, ARG3) 
i INPUTS: 

ARG1 : Address of the input buffer 

§ OUTPUTS: 

5 None. 

; IMPLICIT INPUTS: 

ane 

5 


NOTES: 


This decipher routine takes the given cluster-dismount packet of the form 
shown below and returns a device descriptor and the dismount flags. 


Offset 
0 BUF_FLAGS 
4 BUF_DSC 
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; 36 1! ! 1 8 

{ H device string | 12 BUF_STR 


! Start of CSP_DISMOUNT_DECIPHER 


BUFFER : REF BLOCK C,BYTE) ; 


MEW OODNAOUS UT— 


LOCAL 
LOC_DSC : REF BLOCK C,BYTE) ; 


, ! Define buffer offsets 
MACRO BUF _DSC oY. 
MACRO BUF STR = 12, 

LITERAL BOF_HDR_LEN = 12; 


«FLAGS = urrentour Ls J; ! Get flags from buffer 
LOC_OSC = BUFFERLBUF ie 3 ! Point to device descriptor 
LOC_"DSCCDSCSA_POINTER] = .LOC_DSCCDSCSA_POINTER] + .BUFFER; ! ‘Relocate’’ address 
! in device descriptor 
ev 


MACRO BUF _FLAG : 33 


= ORoRoRonoronononononononononononononunony 
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wv oO 
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.* s+ © 
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VeFQDE 
Se Ge Ge 


bob lad 
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PUPS FIO 


-DEV_DSC = .LOC_DSC; i Return address of device dsc 
RETURN; 
91 ND; ! End of CSP_DISMOUNT_DECIPHER 
0000 00000 CSP_DISMOUNT_DECIPHER: 

-WORB Save Bathing 3 0496 
¢ BC 04 ec 00 9002 MOVL @BUFFER, @FLAGS : 0574 
50 4 AC 4 Ci ADDL3 #4, BUFFER, LOC_DSC : 0575 
4 AO 04 AC C9 oc ADDL2 BUFFER, 4(LOC_DSC) ; 376 
8 BC 5 BO if MOVL LOC_DS€, aDEVDSC : 0978 


; Routine Size: 22 bytes, Routine Base: S$CODES + OOA8 
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ZSBTTL "Get ule - Get our process UIC’ 
INE GET_UIC = 


| FUNCTIONAL DESCRIPTION: 
This is a kernel-mode routine to get the UIC of a process. 
CALLING SEQUENCE: 
GET.UIC ©) 
INPUT PARAMETERS: 
None. 
IMPLICIT INPUTS: 
None. 
OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
None. 
ROUTINE VALUE: 
UIC of this process. 
SIDE EFFECTS: 
None. 


i 
! 
' 
' 
' 
! 
' 
' 
i 
' 
' 
' 
' 
1 
i 
! 
! 
! 
! 
! 
! 
! 
! 
i 
i 
+ 
i 
i 
' 
i 
ine 
BEGIN 
EXTERNAL 

SCHSGL_CURPCB : REF BLOCK C, BYTE] ADDRESSING_MODE (ABSOLUTE); 

! system address of process PCB 

RETURN (.SCHSGL_CURPCBCPCBSL_UIC]); 


END; ! End of routine GET_UIC 


~EXTRN SCHS$GL_CURPCB 


00 of DD 00908 GET_UIC: .WORD Save nothing. ao 
3 ad | Tae co D HOVE MBRCROS SA ; 


£3 


H 5 
vee 000 GET_UIC = Get our process UIC 12286871382 94: 18:63 SYSLoaesRe CoPmbUNY 09351 oe 3B 
04 O000E RET ; 0631 
; Routine Size: 15 bytes, Routine Base: SCODES + OOBE 


; 443 0632 1 
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: GET_UIC = Get our process UIC 1b-se op- 188d 9} 18; 33 SYSLOASRe c mount 63551 a 


SBTTL "SET ure 
OUTINE SET_UIC ( UIC ) = 


- Set our process UIC’ 


a 
+ 


FUNCTIONAL DESCRIPTION: 
This is a kernel-mode routine to set the UIC of a process. 


SCHSGL_CURPCB : REF BLOCK C, BYTE) ADDRESSING -MODE (ABSOLUTE); 
' System address of process PCB 
SCHSGL_CURPCB CPCBSL_UIC] = .UIC; Set UIC 
RETURN 1; 


END; ! End of routine SET_UIC 


1 
1 
1 
1 
q 1! 
b 1; 
i 
13 
1 
{ 1 
b4 3 1 | CALLING SEQUENCE: 
B45 SET_UIC (ARG1) 
st? INPUT PARAMETERS: 
Hs ARG1 : Desired UIC 
Re | IMPLICIT INPUTS: 
; § None. 
OUTPUT PARAMETERS: 
1 i None. 
$38 1 
659 1 | IMPLICIT OUTPUTS: 
60 1 
661 ! None. 
1 1 | ROUTINE VALUE: 
664 1 | 
+4] SIDE EFFECTS: 
p68 1/ None. 
570 1 | 
671 1 je- 
$e 
57 BEGIN 
574 
5 : EXTERNAL 


0098 B80 08 SET_UIC:.WORD Save n ng 
50 000000006 9F D 0 MOVL srstusce. uit PCB, RO 


veer O00 SET_UIC = Set our process UIC 1b-se0-1 984 94:18:88 Ye¥stoa’see CePmOUNY 04351 


00BC 06 ac OD MOVL UIC, 188(RO) 
3 Mf 89 9900 RaM Hilo 
2 RET 
; Routine Size: 19 bytes, Routine Base: S$CODE$ + OOCD 


i 8 bese 


re as 


KS 
WA, as Abe > ri * CSPC 
SET_UIC = Set our process UIC eet ae HS CT Pett Peat a Page 5 vos: 


+--+. 
NOuw 


SBTTL ‘CHECK_DEVIC = Check if the mount request should be processed’ 
TINE CHECKIDEVICE ( BUFFER’ = . p 


a: 


i FUNCTIONAL DESCRIPTION: 
This routine determines if the ree Fopuest received should 
be processed. if the target device is already mounted, or is 
not a cluster-wide device, then the request should be dismissed. 
i CALLING SEQUENCE: 
CHECK_DEVICE (ARG1) 
i INPUTS: 
ARG1 : Address of the mount item List 


x 
f 
t 
' 
i] 
' 
' 
4 
' 
4 
' 
a 
' 
' 
' 
' 
' 
' 
{ OUTPUTS: 
a 
' 
' 
' 
1 
i) 
t 
i] 
t 
' 
i] 
‘ 
4 
' 
' 
' 
' 
' 
‘ 
‘ 
' 
‘ 
4 
' 


SEVERE 


FC 
PIII IPI IIIA at at st st st tt a a i hh hh 


None. 
i IMPLICIT INPUTS: 
None. 
i OUTPUT PARAMETERS: 
None. 
i IMPLICIT OUTPUTS: 
None. 
i ROUTINE VALUES: 
0 : If the mount request should be dismissed. 


— ot tt 4 2 2 a 


MEAN OS OONOUE WIN OOO NOUE WN O OONAUS UT 


} 1 : If the mount request should be processed. 
i SIDE EFFECTS: 
None. 


Sa Dae ie Die De ie Dian Di Dini p Din. Bien nt nD i i Dit Ne te te ee be ee i 


BEGIN ! Start of CHECK_DEVICE 
MAP 
BUFFER : REF BLOCK C,BYTE); 
3 LOCAL 
STATUS 
rt LOCAL_EFN, ' Local event flag 
4 ITEM : REF BLOCK C,BYTE), ! Pointer to item descriptor 


5 
y An000. CHECK_DEVICE = Check if the mount request shou 1$-Se0-1984 9418303 SYsLoa see CSombu MOUNT. $343, 31 a df V4 


C 
$ 5 74 DEV_DESC : BLOCK COSCS$K_S BLN, BYTE), Target de ice scriptor 
i 328 i Beye AR : BLOF i: BY ue Device . vord bulfer it 
3 : nd device char wor er 
i $58 r4 IMLS : BLOCK (bef 3)54. ByTED gn dev rattan sng 
; 6 ry Ist item - device charasteristic word 
: 56 149 ( WORD ( ' Buffer bength 
; 56 7 WORD (Bvi$_p DEVCHAR), Aas dev ce ghar word 
; 564 7 LONG (DEVCRAR), Address of buffer 
: 65 4 ; LONG ( 5 No length 
; ef 4 : | 2nd item - 2nd device characteristic word 
: 569 7 g " WORD (4) gutter Length 
3 0 7 WORD (Ovi REYEWARE) » ! 2nd device char word 
; 571 7 8 LONG (DEVCRAR2), ! Address of buffer 
s $7 7 LONG (0) ! No Length 
: a red LONG (0)5; ! Item List stopper 
: 575 76 EXTERNAL ROUTINE 
; 278 76 LIBSGET_EF : ADDRESSING_MODE (GENERAL), ! RTL routine to get an EF 
; arf ree LIBSFREE_EF : ADDRESSING_MODE (GENERAL); ! RTL routine to release the EF 
; 275 76 MACRO ITEM_LENG = g. 16.08: ! Define buffer offsets 
; 580 76 MACRO ITEM_CODE = -0,16,0%; 
3 81 768 MACRO ITEM_ADDR = 4, 3 ath 
; S 769 MACRO ITEM_NULL = 8,0,32,0%; 
; 58 770 LITERAL ITEM_SIZE = 12; 
: HG 17 STATUS = 0; ! Assume failure 
; 586 77 ITEM = .BUFFER; i Point to the beginning of buffer 
> 587 774 2 LIBSGET_EF (LOCAL_EFN); i Get a local event flag 
Bo ee 
; 90 ae i Scan the item List for device names. For each device name in item list, 
: 4 ak issue a SGETDVI system service to find out the status of the device. 
3 38 f , WHILE A CITEM_CODE] NEQ 0 ) DO ! Examine each item 
; 95 g § wa CITEM_CODE] EQL MNT$_DEVNAM 
; 299 784 4 BEGIN ' For device names onty 
3 238 785 4 DEV_DESC [DSC ree} = 0: ' Set up device descritor 
3 7 4 DEV_DESC {DSC CLASSJ = Q; 
; 600 7 4 DEV-DESC CDSCSW-LENGTH)] = .ITEM ETERS LENG); 
: ? 1 4 3 2 DEV-DESC CDSCSA_POINTER] = .ITEM CITEM-ADDRI; 
; 5 P0790 4 STATUS = $GETDVIW ( DEVNAM = DEV_DESC, ! Get device info 
3 ope P 0791 4 ITMLST = ITMCST, 
3 5 186 2 EFN = .LOCAL_EFN ); 
i; 6 794 IF ( NO ays ) ! If $GETDVI failed 
; 60 795 oR (., Mo eveAAR DEySy nN ' or device already mounted 
3 P36 OR ( NOT .DEVCHAR Bevsy tLu3 ) ' or not cluster-wide device 
3 2 797 & THEN 
3 11 798 5 BEGIN 


wm 5 
CSPMOUNT -$ep-1984 01:14:34 AX-11 Bliss-32 V4.0-74 i 7 
voe-000 CHECK_DEVICE = Check if the mount request shou 27808-1388 94:18:88 SYSLOA.SRCICSPMOUNT .B3 31 si J 
STATUS = 0; !R ith fail 
SATUS oP: eturn w ailure 
. . ' 
ITEM = .ITEM + ITEM_SIZE; i Bump item desciptor pointer 
END; ! End of while lose , 


LIBSFREE_EF (LOCAL_EFN); 
RETURN .STATUS; 
END; 


Release the event flag 


Back to caller 
End of CHECK_DEVICE 


Peee tees Se eeee te Se teaee 
PAAAAAAAAAAO 
PROPINITY 


Wr" OOONOULSwr 
= 


ooo 
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«PSECT S$PLITS,NOWRT,NOEXE ,2 


004 000 P.AAA: .WORD 4 3 
goes songs PAM toe ; 
4h 0004 LONG 3 
00 0 00008 LONG 3 
Bee it eWORD 4 § 
§ 00 3 WORD 30 3 
000000 001 LONG 3 
00000000 00014 LONG 3 
00000000 00018 LONG 3 

~-EXTRN LIBSGET_EF, LIBSFREE_EF 

-EXTRN SYSSGETBVIW 


-PSECT S$CODES,NOWRT,2 


003C 00000 CHECK_DEVICE: 
WOR 3? e R2,R3,R4,R5 


SE 30 2 0000 SUBL ; : 
OC AE 0009" CF ic 0000 MOVC3 #28. P.AAA, ITMLST : 0760 
10 AE 6E 9E 0000 MOVAB DEVCHAR, ITMLST+4 : 0733 
1 AE 04 AF 4 1 MOVAB DEVCHAR2, ITMLST+16 : 
53 D4 0001 CLRL TAT : 077 
52 6 AC 20 oI OVL BUFFER, ITEM : 077 
8 AF F 0001B PUSHAB LOCAL_EFN + 0774 
000000006 00 01 F 1 CALLS #1, LIBSGET_EF : 
02 A2 e 1$: stl e (ITEM) ; 0780 
01 02 A A Cn g(I TEM), rt + 0782 
38 AE é ¢ MOVZWL (ITEM), DEV_DESC > 0787 
C AE 04 =A MOVL 4CITERS, DEV_DESC+4 : 078 
ze ¢ 9 CLRG 40s = (SP : 079 
—€ 7¢ CLRQ = =(SP) ; 
1 AE i PUSHAB ITMLST ; 
3C = AE OOF 0004 PUSHAB DEV DESC ; 
7E D4 0004 CLRL 0 = (SP ; 
24 AE DD 0004 PUSHL LOCAL_EFN : 
000000006 5 f 48 CALLS ‘ STSSGETDVIW 
9 E 52 BLBC _— STATUS, rH > 0794 


"Y Used: 109 pages 
oo ation Complete 


CSPMOUNT AX-11 Bliss-32 V4.0-7 P 8 CSPI 
tatty CHECK_DEVICE = Check if the mount request shou 16- sen 1944 94: 18; 33 SYSLOA. SRCJCSPMOUNT. bi 31 ts ¥ vO 
04 02 03 € 5 BBS #3, DEV HAR+2, 2$ 3 0795 
Of 04 #A 3 A BLBS grants aRST aS 3 136 2: 
pA 28: CLRL ; 07 97 
BRB : 079 $6 | 
52 C f 3$: ADDL2 he, ITEM : 80 0 | 
BE BRB 1$ : 0780 of 
08 AE OF 4$: PUSHAB LOCALE 3 0806 4 | 
000000006 98 g fe A CALLS L EST REE _EF 3 : 
p 1 MOVL STATUS” RO ; 0808 49 | 
4 00074 RET ; 0810 $8 
; Routine Size: 117 bytes, Routine Base: $CODE$S + O0E0 57 | 
( 
0. 
> 624 0811 4 ( 
3; 625 bas END ! End of CSPMOUNT ( 
: 626 0813 0 ELUDOM ; 
a 
69 | 
45 ; 
51 
; PSECT SUMMARY 61 
: Name Bytes Attributes $3 
; SCODES 341 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, FON MOE TEAL I ENSS? 65 
; SPLITS 28 NOVEC,NOWRT, RD *NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 72 
45 ; 
! 
: Library Statistics 85 
PSS OE ee Symbols -------- Pages Processing 45 | 
: File Total Loaded Percent Mapped ime of 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 18 0 1000 00:01.4 45 | 
75 | 
72 | 
$3 | 
34 
3 COMMAND QUALIFIERS 65 | 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CSPMOUNT/OBJ=OBJ$:CSPMOUNT MSRC$:CSPMOUNT/UPDATE=(ENHS: CSPMOUNT) 
5 pize 341 85 + 28 data bytes 
: ype Tine: : 
3 Lines/CPU Min: 45 
; ,onenee/CAre “Min: 29986 
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